home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
UNCOMPRE.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
20 lines
;;; compiled by jwz@thalidomide on Sat Jan 16 01:47:35 1993
;;; from file /cadillac-th/jwz/emacs19/lisp/packages/uncompress.el
;;; emacs version 19.4.1 Lucid.
;;; bytecomp version 2.09; 12-jan-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴Mê┬├\"¼ä┼B└ç" [uncompress-backup-file #[nil "½ô ½É\n¼ì├!¼ê─┼╞ëë%ê╞ç" [buffer-file-name make-backup-files buffer-backed-up file-exists-p call-process "uncompress" nil] 6] assoc "\\.Z$" auto-mode-alist ("\\.Z$" . uncompress-while-visiting)] 3)
(fset 'uncompress-while-visiting #[nil "½Ä┴┬\"½ê├─ëöO!ê┼╞!ê╟╔ed╩╦$ê)┼╠!ê═╟!ê╬╧!ê╨>¼å╨B╤ ç" [buffer-file-name string-match "\\.Z$" set-visited-file-name 0 message "Uncompressing..." nil buffer-read-only shell-command-on-region "uncompress" t "Uncompressing...done" set-buffer-modified-p make-local-variable write-file-hooks uncompress-backup-file normal-mode] 5 "\
Temporary \"major mode\" used for .Z files, to uncompress the contents.
It then selects a major mode from the uncompressed file name and contents."])
(byte-code "└ >¼ä└ B└ç" [find-compressed-version find-file-not-found-hooks] 2)
(fset 'find-compressed-version #[nil "└ ┬P!¡É ┬P├ ─\"êebê┼─ç" [file-exists-p buffer-file-name ".Z" insert-file-contents t nil error] 3 "\
Hook to read and uncompress the compressed version of a file."])